home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / examples.lha / Examples / AMOK / IntuiPointer / IntuiPointer.mod next >
Text File  |  1995-04-27  |  15KB  |  309 lines
  1. (*---------------------------------------------------------------------------
  2.  :Program.    IntuiPointer.mod
  3.  :Contents.   Prozeduren zum Setzen des Mauszeigers auf 'Busy' (ZZ)
  4.  :Author.     Bernd Preusing
  5.  :Address.    Gerhardstr. 16  D-2200 Elmshorn
  6.  :Phone.      04121/22486
  7.  :Copyright.  Public Domain
  8.  :Language.   Oberon-2
  9.  :Translator. Amiga Oberon 2.42d
  10.  :Translator. Oberon-A 5.13
  11.  :History.    V1.0, 08-Oct-89, Bernd Preusing
  12.  :History.    V1.1, 10-Jan-90, [bne]: original (ZZ).-Image
  13.  :History.    V1.2, 10-Jan-92, Christian Stiens: original OS2.0 BusyPointer
  14.  :History.    V1.3, 06-Oct-92, Christian Stiens: animated busy pointer
  15.  :History.    V1.3 11-Jun-93 [hG] supports 3.0 internal busy pointer
  16.  :History.    V1.4, 23-Jan-95 [fjc] merged Christian's and Hartmut's
  17.  :History.        versions, and added Oberon-A code.
  18.  :Bugs.       none
  19.  :Remark.     Please, create beautiful pointers for me!
  20. ---------------------------------------------------------------------------*)
  21.  
  22. (* $CLEAR OberonA *)
  23. (* <*IF OberonA THEN*> $IF OberonA *)
  24. (* <*STANDARD-*> <*MAIN-*> <*INITIALISE-*> *)
  25. (* <*END*> $END *)
  26.  
  27. MODULE IntuiPointer;
  28.  
  29. IMPORT
  30. (* <*IF OberonA THEN*> $IF OberonA *)
  31.   SYS := SYSTEM,
  32.   Kernel,
  33.   e := Exec,
  34. (* <*END*> $END *)
  35.   I := Intuition,
  36.   u := Utility;
  37.  
  38. (* <*IF OberonA THEN*> $IF OberonA *)
  39.  
  40. TYPE Data = ARRAY 36 OF INTEGER; DataPtr = POINTER [2] TO Data;
  41.  
  42. CONST ClockDataStr =
  43.   "\x00\x00\x00\x00"
  44.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  45.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xEC\x3F\xF8\x7F\xDE\x3F\xF8\x7F\xBE"
  46.   "\x7F\xFC\xFF\x7F\x7E\xFC\xFF\xFF\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  47.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  48.   "\x00\x00\x00\x00";
  49.  
  50. TYPE Data2 = ARRAY 16,36 OF INTEGER; Data2Ptr = POINTER [2] TO Data2;
  51.  
  52. CONST AnimClockDataStr =
  53.   "\x00\x00\x00\x00"                                               (* 00 *)
  54.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  55.   "\x07\xC0\x1E\xF8\x1F\xF0\x3E\xFC\x3F\xF8\x7E\xFE\x3F\xF8\x7E\xFE"
  56.   "\x7F\xFC\xFE\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  57.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  58.   "\x00\x00\x00\x00"
  59.   "\x00\x00\x00\x00"                                               (* 01 *)
  60.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  61.   "\x07\xC0\x1F\xB8\x1F\xF0\x3F\xBC\x3F\xF8\x7F\x7E\x3F\xF8\x7F\x7E"
  62.   "\x7F\xFC\xFE\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  63.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  64.   "\x00\x00\x00\x00"
  65.   "\x00\x00\x00\x00"                                               (* 02 *)
  66.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  67.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xEC\x3F\xF8\x7F\xDE\x3F\xF8\x7F\xBE"
  68.   "\x7F\xFC\xFF\x7F\x7E\xFC\xFF\xFF\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  69.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  70.   "\x00\x00\x00\x00"
  71.   "\x00\x00\x00\x00"                                               (* 03 *)
  72.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  73.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xE6"
  74.   "\x7F\xFC\xFF\x9F\x7E\xFC\xFF\x7F\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  75.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  76.   "\x00\x00\x00\x00"
  77.   "\x00\x00\x00\x00"                                               (* 04 *)
  78.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  79.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  80.   "\x7F\xFC\xFF\xFF\x7E\xFC\xFF\x03\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  81.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  82.   "\x00\x00\x00\x00"
  83.   "\x00\x00\x00\x00"                                               (* 05 *)
  84.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  85.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  86.   "\x7F\xFC\xFF\xFF\x7E\xFC\xFF\x7F\x7F\xFC\xFF\x9F\x3F\xF8\x7F\xE6"
  87.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  88.   "\x00\x00\x00\x00"
  89.   "\x00\x00\x00\x00"                                               (* 06 *)
  90.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  91.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  92.   "\x7F\xFC\xFF\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFF\x7F\x3F\xF8\x7F\xBE"
  93.   "\x3F\xF8\x7F\xDE\x1F\xF0\x3F\xEC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  94.   "\x00\x00\x00\x00"
  95.   "\x00\x00\x00\x00"                                               (* 07 *)
  96.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  97.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  98.   "\x7F\xFC\xFF\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFE\xFF\x3F\xF8\x7F\x7E"
  99.   "\x3F\xF8\x7F\x7E\x1F\xF0\x3F\xBC\x07\xC0\x1F\xB8\x00\x00\x07\xE0"
  100.   "\x00\x00\x00\x00"
  101.   "\x00\x00\x00\x00"                                               (* 08 *)
  102.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  103.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  104.   "\x7F\xFC\xFF\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFE\xFF\x3F\xF8\x7E\xFE"
  105.   "\x3F\xF8\x7E\xFE\x1F\xF0\x3E\xFC\x07\xC0\x1E\xF8\x00\x00\x07\xE0"
  106.   "\x00\x00\x00\x00"
  107.   "\x00\x00\x00\x00"                                               (* 09 *)
  108.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  109.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  110.   "\x7F\xFC\xFF\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFE\xFF\x3F\xF8\x7D\xFE"
  111.   "\x3F\xF8\x7D\xFE\x1F\xF0\x3B\xFC\x07\xC0\x1B\xF8\x00\x00\x07\xE0"
  112.   "\x00\x00\x00\x00"
  113.   "\x00\x00\x00\x00"                                               (* 10 *)
  114.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  115.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  116.   "\x7F\xFC\xFF\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFD\xFF\x3F\xF8\x7B\xFE"
  117.   "\x3F\xF8\x77\xFE\x1F\xF0\x2F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  118.   "\x00\x00\x00\x00"
  119.   "\x00\x00\x00\x00"                                               (* 11 *)
  120.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  121.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  122.   "\x7F\xFC\xFF\xFF\x7E\xFC\xFD\xFF\x7F\xFC\xF3\xFF\x3F\xF8\x4F\xFE"
  123.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  124.   "\x00\x00\x00\x00"
  125.   "\x00\x00\x00\x00"                                               (* 12 *)
  126.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  127.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x7F\xFE"
  128.   "\x7F\xFC\xFF\xFF\x7E\xFC\x81\xFF\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  129.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  130.   "\x00\x00\x00\x00"
  131.   "\x00\x00\x00\x00"                                               (* 13 *)
  132.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  133.   "\x07\xC0\x1F\xF8\x1F\xF0\x3F\xFC\x3F\xF8\x7F\xFE\x3F\xF8\x4F\xFE"
  134.   "\x7F\xFC\xF3\xFF\x7E\xFC\xFD\xFF\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  135.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  136.   "\x00\x00\x00\x00"
  137.   "\x00\x00\x00\x00"                                               (* 14 *)
  138.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  139.   "\x07\xC0\x1F\xF8\x1F\xF0\x2F\xFC\x3F\xF8\x77\xFE\x3F\xF8\x7B\xFE"
  140.   "\x7F\xFC\xFD\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  141.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  142.   "\x00\x00\x00\x00"
  143.   "\x00\x00\x00\x00"                                               (* 15 *)
  144.   "\x04\x00\x07\xC0\x00\x00\x07\xC0\x01\x00\x03\x80\x00\x00\x07\xE0"
  145.   "\x07\xC0\x1B\xF8\x1F\xF0\x3B\xFC\x3F\xF8\x7D\xFE\x3F\xF8\x7D\xFE"
  146.   "\x7F\xFC\xFE\xFF\x7E\xFC\xFF\xFF\x7F\xFC\xFF\xFF\x3F\xF8\x7F\xFE"
  147.   "\x3F\xF8\x7F\xFE\x1F\xF0\x3F\xFC\x07\xC0\x1F\xF8\x00\x00\x07\xE0"
  148.   "\x00\x00\x00\x00";
  149.  
  150. VAR
  151.   ClockData : DataPtr;
  152.   AnimClockData : Data2Ptr;
  153.  
  154. (*------------------------------------*)
  155. PROCEDURE InitData;
  156.  
  157. BEGIN (* InitData *)
  158.   Kernel.Allocate (ClockData, SIZE (Data), {e.chip});
  159.   SYS.MOVE (SYS.ADR (ClockDataStr), ClockData, SIZE (Data));
  160.   Kernel.Allocate (AnimClockData, SIZE (Data2), {e.chip});
  161.   SYS.MOVE (SYS.ADR (AnimClockDataStr), AnimClockData, SIZE (Data2));
  162. END InitData;
  163.  
  164. (* <* ELSE *> $ELSE *)
  165.  
  166. (* $DataChip+ *)
  167.  
  168. TYPE Data = ARRAY 36 OF INTEGER;
  169.  
  170. CONST ClockData = Data(
  171.   00000U,00000U,
  172.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  173.   007C0U,01FF8U, 01FF0U,03FECU, 03FF8U,07FDEU, 03FF8U,07FBEU,
  174.   07FFCU,0FF7FU, 07EFCU,0FFFFU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  175.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  176.   00000U,00000U);
  177.  
  178. TYPE Data2 = ARRAY 16,36 OF INTEGER;
  179.  
  180. CONST AnimClockData = Data2(
  181.   00000U,00000U,                                               (* 00 *)
  182.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  183.   007C0U,01EF8U, 01FF0U,03EFCU, 03FF8U,07EFEU, 03FF8U,07EFEU,
  184.   07FFCU,0FEFFU, 07EFCU,0FFFFU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  185.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  186.   00000U,00000U,
  187.   00000U,00000U,                                               (* 01 *)
  188.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  189.   007C0U,01FB8U, 01FF0U,03FBCU, 03FF8U,07F7EU, 03FF8U,07F7EU,
  190.   07FFCU,0FEFFU, 07EFCU,0FFFFU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  191.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  192.   00000U,00000U,
  193.   00000U,00000U,                                               (* 02 *)
  194.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  195.   007C0U,01FF8U, 01FF0U,03FECU, 03FF8U,07FDEU, 03FF8U,07FBEU,
  196.   07FFCU,0FF7FU, 07EFCU,0FFFFU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  197.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  198.   00000U,00000U,
  199.   00000U,00000U,                                               (* 03 *)
  200.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  201.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FE6U,
  202.   07FFCU,0FF9FU, 07EFCU,0FF7FU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  203.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  204.   00000U,00000U,
  205.   00000U,00000U,                                               (* 04 *)
  206.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  207.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  208.   07FFCU,0FFFFU, 07EFCU,0FF03U, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  209.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  210.   00000U,00000U,
  211.   00000U,00000U,                                               (* 05 *)
  212.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  213.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  214.   07FFCU,0FFFFU, 07EFCU,0FF7FU, 07FFCU,0FF9FU, 03FF8U,07FE6U,
  215.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  216.   00000U,00000U,
  217.   00000U,00000U,                                               (* 06 *)
  218.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  219.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  220.   07FFCU,0FFFFU, 07EFCU,0FFFFU, 07FFCU,0FF7FU, 03FF8U,07FBEU,
  221.   03FF8U,07FDEU, 01FF0U,03FECU, 007C0U,01FF8U, 00000U,007E0U,
  222.   00000U,00000U,
  223.   00000U,00000U,                                               (* 07 *)
  224.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  225.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  226.   07FFCU,0FFFFU, 07EFCU,0FFFFU, 07FFCU,0FEFFU, 03FF8U,07F7EU,
  227.   03FF8U,07F7EU, 01FF0U,03FBCU, 007C0U,01FB8U, 00000U,007E0U,
  228.   00000U,00000U,
  229.   00000U,00000U,                                               (* 08 *)
  230.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  231.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  232.   07FFCU,0FFFFU, 07EFCU,0FFFFU, 07FFCU,0FEFFU, 03FF8U,07EFEU,
  233.   03FF8U,07EFEU, 01FF0U,03EFCU, 007C0U,01EF8U, 00000U,007E0U,
  234.   00000U,00000U,
  235.   00000U,00000U,                                               (* 09 *)
  236.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  237.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  238.   07FFCU,0FFFFU, 07EFCU,0FFFFU, 07FFCU,0FEFFU, 03FF8U,07DFEU,
  239.   03FF8U,07DFEU, 01FF0U,03BFCU, 007C0U,01BF8U, 00000U,007E0U,
  240.   00000U,00000U,
  241.   00000U,00000U,                                               (* 10 *)
  242.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  243.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  244.   07FFCU,0FFFFU, 07EFCU,0FFFFU, 07FFCU,0FDFFU, 03FF8U,07BFEU,
  245.   03FF8U,077FEU, 01FF0U,02FFCU, 007C0U,01FF8U, 00000U,007E0U,
  246.   00000U,00000U,
  247.   00000U,00000U,                                               (* 11 *)
  248.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  249.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  250.   07FFCU,0FFFFU, 07EFCU,0FDFFU, 07FFCU,0F3FFU, 03FF8U,04FFEU,
  251.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  252.   00000U,00000U,
  253.   00000U,00000U,                                               (* 12 *)
  254.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  255.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,07FFEU,
  256.   07FFCU,0FFFFU, 07EFCU,081FFU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  257.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  258.   00000U,00000U,
  259.   00000U,00000U,                                               (* 13 *)
  260.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  261.   007C0U,01FF8U, 01FF0U,03FFCU, 03FF8U,07FFEU, 03FF8U,04FFEU,
  262.   07FFCU,0F3FFU, 07EFCU,0FDFFU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  263.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  264.   00000U,00000U,
  265.   00000U,00000U,                                               (* 14 *)
  266.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  267.   007C0U,01FF8U, 01FF0U,02FFCU, 03FF8U,077FEU, 03FF8U,07BFEU,
  268.   07FFCU,0FDFFU, 07EFCU,0FFFFU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  269.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  270.   00000U,00000U,
  271.   00000U,00000U,                                               (* 15 *)
  272.   00400U,007C0U, 00000U,007C0U, 00100U,00380U, 00000U,007E0U,
  273.   007C0U,01BF8U, 01FF0U,03BFCU, 03FF8U,07DFEU, 03FF8U,07DFEU,
  274.   07FFCU,0FEFFU, 07EFCU,0FFFFU, 07FFCU,0FFFFU, 03FF8U,07FFEU,
  275.   03FF8U,07FFEU, 01FF0U,03FFCU, 007C0U,01FF8U, 00000U,007E0U,
  276.   00000U,00000U);
  277.  
  278. (* <*END*> $END *)
  279.  
  280. PROCEDURE Normal* (win: I.WindowPtr);
  281. BEGIN
  282.   IF I.int.libNode.version >= 39 THEN
  283.     I.SetWindowPointer(win,u.done);
  284.   ELSE
  285.     I.ClearPointer(win);
  286.   END;
  287. END Normal;
  288.  
  289. PROCEDURE Busy* (win: I.WindowPtr);
  290. BEGIN
  291.   IF I.int.libNode.version >= 39 THEN
  292.     I.SetWindowPointer(win,I.waBusyPointer,I.LTRUE,
  293.                            I.waPointerDelay,I.LTRUE,
  294.                            u.done);
  295.   ELSE
  296.     I.SetPointer(win,ClockData^,16,16,-6,0);
  297.   END;
  298. END Busy;
  299.  
  300. PROCEDURE AnimBusy* (win: I.WindowPtr; num: INTEGER);
  301. BEGIN
  302.   I.SetPointer(win,AnimClockData[num MOD 16],16,16,-6,0);
  303. END AnimBusy;
  304.  
  305. (* <*IF OberonA THEN*> $IF OberonA *)
  306. BEGIN InitData
  307. (* <*END*> $END *)
  308. END IntuiPointer.
  309.